home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1990: Discy Business / Discy Business.2mg / DEV.CD / TOOLS / SAMPLES / HP / HP.PAS / HPINTF.PROC.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1987-08-14  |  11.1 KB  |  169 lines  |  [B0] Apple IIgs Source Code (0x001E)
  1. UNIT HPINTFPROC;
  2.  
  3. {Custom toolbox interface unit for Pascal HodgePodge.  Based on Beta Toolbox
  4.  References dated April 1987 with the addenda dated August 1987.  These files
  5.  contain only the constants, data structure type definitions, and procedure
  6.  and function inline "Tool" declarations necessary to compile HodgePodge.
  7.  This file is necessary because as of this date the TML Pascal interface
  8.  libraries did not yet match the definitions in the Toolbox Reference.  These
  9.  definitions are split into multiple files due to compiler symbol table space
  10.  limitations.
  11.  
  12.  This module contains the inline procedure/function definitions.
  13.  
  14.  Ben Koning    10-Sep-87}
  15.  
  16.  
  17.  
  18.  
  19.  
  20. USES HPINTFDATA;
  21.  
  22.  
  23.  
  24.  
  25.  
  26. PROCEDURE BeginUpdate      (theWindow:GrafPortPtr);                Tool 14,30;
  27. PROCEDURE CalcMenuSize     (newWidth,newHeight,menuNum:integer);   Tool 15,28;
  28. FUNCTION  CautionAlert     (Template:Ptr;Filter:ProcPtr):integer;  Tool 21,26;
  29. FUNCTION  ChooseFont   (CurrentID:FontID;FamSpecs:integer):FontID; Tool 27,22;
  30. PROCEDURE CloseDialog      (TheDialog:GrafPortPtr);                Tool 21,12;
  31. PROCEDURE CloseNDAbyWinPtr (theWindow:GrafPortPtr);                Tool 5,28;
  32. PROCEDURE ClosePort        (Port:GrafPortPtr);                     Tool 4,26;
  33. PROCEDURE CloseWindow      (theWindow:GrafPortPtr);                Tool 14,11;
  34. PROCEDURE CtlShutDown;                                             Tool 16,3;
  35. PROCEDURE CtlStartUp       (userID,dpageAddr:integer);             Tool 16,2;
  36. PROCEDURE DeleteMItem      (itemNum:integer);                      Tool 15,16;
  37. PROCEDURE DeskShutDown;                                            Tool 5,3;
  38. PROCEDURE DeskStartUp;                                             Tool 5,2;
  39. PROCEDURE DialogShutDown;                                          Tool 21,3;
  40. PROCEDURE DialogStartUp    (userID:integer);                       Tool 21,2;
  41. PROCEDURE DisableMItem     (itemmNum:integer);                     Tool 15,49;
  42. PROCEDURE DisposeHandle    (theHandle:Handle);                     Tool 2,16;
  43. PROCEDURE DrawDialog       (theDialog:GrafPortPtr);                Tool 21,22;
  44. PROCEDURE DrawMenuBar;                                             Tool 15,42;
  45. PROCEDURE DrawString       (theStr:Str255);                        Tool 4,165;
  46. PROCEDURE EMShutDown;                                              Tool 6,3;
  47. PROCEDURE EMStartUp (Dp,Qs,Xmin,Xmax,Ymin,Ymax,userID:integer);    Tool 6,2;
  48. PROCEDURE EnableMItem      (itemNum:integer);                      Tool 15,48;
  49. PROCEDURE EndUpdate        (theWindow:GrafPortPtr);                Tool 14,31;
  50. PROCEDURE FMShutDown;                                              Tool 27,3;
  51. PROCEDURE FMStartUp        (userID,Dp:integer);                    Tool 27,2;
  52. PROCEDURE FixAppleMenu     (menuNum:integer);                      Tool 5,30;
  53. FUNCTION  FixMenuBar: Integer;                                     Tool 15,19;
  54. FUNCTION  FrontWindow:GrafPortPtr;                                 Tool 14,21;
  55. FUNCTION  GetFamInfo   (famNum:integer; famName:Str255):integer;   Tool 27,11;
  56. FUNCTION  GetFontFlags: Integer;                                   Tool 4,153;
  57. PROCEDURE GetFontInfo          (var fontInfo:FontInfoRecord);      Tool 4,150;
  58. FUNCTION  GetNewModalDialog    (theTemplate:Ptr):GrafPortPtr;      Tool 21,50;
  59. PROCEDURE GetPen               (var thePt:Point);                  Tool 4,41;
  60. FUNCTION  GetPort: GrafPortPtr;                                    Tool 4,28;
  61. FUNCTION  GetSysWFlag          (theWindow:GrafPortPtr):boolean;    Tool 14,76;
  62. FUNCTION  GetWRefCon           (theWindow:GrafPortPtr):longint;    Tool 14,41;
  63. PROCEDURE GrafOff;                                                 Tool 4,11;
  64. PROCEDURE HLock                (h:Handle);                         Tool 2,32;
  65. PROCEDURE HUnlock              (h:Handle);                         Tool 2,34;
  66. PROCEDURE CheckHandle          (h:Handle);                         Tool 2,30;
  67. FUNCTION  GetSysFont: Handle;                                      Tool 4,179;
  68. FUNCTION  GetFont: Handle;                                         Tool 4,149;
  69. FUNCTION  GetPicSave: Handle;                                      Tool 4,63;
  70. FUNCTION  GetRgnSave: Handle;                                      Tool 4,65;
  71. FUNCTION  GetPolySave: Handle;                                     Tool 4,67;
  72. FUNCTION  GetHandleSize        (H: Handle): longint;               Tool 2,24;      
  73. FUNCTION  FindHandle           (Location: Ptr): Handle;            Tool 2,26;
  74. FUNCTION  GetScrapPath: Handle;                                    Tool 22,16;
  75. FUNCTION  Hex2Int (StrPtr : StringPtr;StrLength:integer):integer;  Tool 11,36;
  76. PROCEDURE HiliteMenu   (Hilite:boolean; menuNum:integer);          Tool 15,44;
  77. PROCEDURE InitCursor;                                              Tool 4,202;
  78. PROCEDURE InsertMItem  (addItem:CStringPtr;after,menuNum:integer); Tool 15,15;
  79. PROCEDURE InsertMenu   (addMenu:MenuRecHndl;after:integer);        Tool 15,13;
  80. PROCEDURE InstallFont  (theID:FontID;scale:integer);               Tool 27,14;
  81. PROCEDURE Int2Hex (val:integer;StrPtr:StringPtr; StrLen:integer);  Tool 11,34;
  82. FUNCTION  IntToString  (I: Integer): String;                       External;
  83. PROCEDURE LEShutDown;                                              Tool 20,3;
  84. PROCEDURE LEStartUp    (Dp,userID:integer);                        Tool 20,2;
  85. PROCEDURE ListShutDown;                                            Tool 28,3;
  86. PROCEDURE ListStartUp;                                             Tool 28,2;
  87. PROCEDURE LoadTools    (theTools:ToolTable);                       Tool 1,14;
  88. PROCEDURE MMShutDown   (userID:integer);                           Tool 2,3;
  89. FUNCTION  MMStartUp: integer;                                      Tool 2,2;
  90. FUNCTION  MMStatus: integer;                                       Tool 2,6;
  91. PROCEDURE MTShutDown;                                              Tool 3,3;
  92. PROCEDURE MTStartUp;                                               Tool 3,2;
  93. PROCEDURE MenuShutDown;                                            Tool 15,3;
  94. PROCEDURE MenuStartUp  (userID,Dp:integer);                        Tool 15,2;
  95. FUNCTION  ModalDialog  (filterProc:ProcPtr):integer;               Tool 21,15;
  96. PROCEDURE MoveTo       (x,y:integer);                              Tool 4,58;
  97. PROCEDURE NewDItem (theDialog:GrafPortPtr; itemID:integer;
  98.                     itemRect:Rect; itemType:integer;
  99.                     itemDescr:UNIV Ptr; itemValue,
  100.                     itemFlag:integer; itemColor:ColorTablePtr);    Tool 21,13;
  101. FUNCTION  NewHandle (s:longint;ID,att:integer;loc:Ptr):Handle;     Tool 2,9;
  102. FUNCTION  NewMenu   (menuStr:Ptr):MenuRecHndl;                     Tool 15,45;
  103. FUNCTION  NewModalDialog(b:Rect;vis:boolean;r:longint):GrafPortPtr;Tool 21,10;
  104. FUNCTION  NewWindow (p:ParamList):GrafPortPtr;                     Tool 14,9;
  105. PROCEDURE OpenPort         (thePort:GrafPortPtr);                  Tool 4,24;
  106. PROCEDURE PMShutDown;                                              Tool 19,3;
  107. PROCEDURE PMStartUp        (userID,Dp:integer);                    Tool 19,2;
  108. PROCEDURE PPToPort (loc:LocInfo;r:Rect;x,y,mode:integer);          Tool 4,214;
  109. FUNCTION  PrChooser:  boolean;                                     Tool 19,22;
  110. PROCEDURE PrCloseDoc   (pPrPort:GrafPortPtr);                      Tool 19,15;
  111. PROCEDURE PrClosePage  (pPrPort:GrafPortPtr);                      Tool 19,17;
  112. PROCEDURE PrDefault    (hPrint:PrRecHndl);                         Tool 19,9;
  113. FUNCTION  PrJobDialog  (hPrint:PrRecHndl):boolean;                 Tool 19,12;
  114. FUNCTION  PrOpenDoc    (h:PrRecHndl;p:GrafPortPtr):GrafPortPtr;    Tool 19,14;
  115. PROCEDURE PrOpenPage   (p:GrafPortPtr;pPageFrame:RectPtr);         Tool 19,16;
  116. PROCEDURE PrPicFile (h:PrRecHndl;p:GrafPortPtr;s:PrStatusRecPtr);  Tool 19,18;
  117. FUNCTION  PrStlDialog  (hprint:PrRecHndl):boolean;                 Tool 19,11;
  118. PROCEDURE WriteBRam(Buffer: Ptr);                                  Tool 3,9;
  119. FUNCTION  GetGrafProcs: Ptr;                                       Tool 4,69;
  120. PROCEDURE QDAuxShutDown;                                           Tool 18,3;
  121. PROCEDURE QDAuxStartUp;                                            Tool 18,2;
  122. PROCEDURE QDShutDown;                                              Tool 4,3;
  123. PROCEDURE QDStartUp (Dp:integer;s:AnSCBByte;width,userID:integer); Tool 4,2;
  124. FUNCTION  QDStatus: integer;                                       Tool 4,6;
  125. PROCEDURE RefreshDesktop   (r:RectPtr);                            Tool 14,57;
  126. PROCEDURE SFAllCaps        (allCaps:boolean);                      Tool 23,13;
  127. PROCEDURE SFGetFile (x,y:integer; prompt:Str255; filter:ProcPtr;
  128.                      typelist:TypeListPtr;reply:SFReplyRec);       Tool 23,9;
  129. PROCEDURE SFPutFile (x,y:integer;p,n:Str255;maxLength:integer;
  130.                      reply:SFReplyRec);                            Tool 23,10;
  131. PROCEDURE SFShutDown;                                              Tool 23,3;
  132. PROCEDURE SFStartUp    (userID,Dp:integer);                        Tool 23,2;
  133. PROCEDURE ScrapShutDown;                                           Tool 22,3;
  134. PROCEDURE ScrapStartUp;                                            Tool 22,2;
  135. PROCEDURE SelectWindow (theWindow:GrafPortPtr);                    Tool 14,17;
  136. PROCEDURE SetBackColor (backColor:integer);                        Tool 4,162;
  137. PROCEDURE SetFontFlags (flags:integer);                            Tool 4,152;
  138. PROCEDURE SetForeColor (foreColor:integer);                        Tool 4,160;
  139. PROCEDURE SetMItem         (newStr:Str255;itemNum:integer);        Tool 15,36;
  140. PROCEDURE SetMItemID       (newID,oldID:integer);                  Tool 15,56;
  141. PROCEDURE SetMTitleStart   (xStart:integer);                       Tool 15,25;
  142. PROCEDURE SetMenuFlag      (newValue,menuNum:integer);             Tool 15,31;
  143. PROCEDURE SetOriginMask (originMask:integer;theWindow:GrafPortPtr);Tool 14,52;
  144. PROCEDURE SetPort          (thePort:GrafPortPtr);                  Tool 4,27;
  145. PROCEDURE SetRect      (var r:Rect; x1,y1,x2,y2:integer);          Tool 4,74;
  146. PROCEDURE SetTextFace  (textFace:integer);                         Tool 4,154;
  147. PROCEDURE SetWTitle    (title:Str255;theWindow:GrafPortPtr);       Tool 14,13;
  148. PROCEDURE ShowCursor;                                              Tool 4,145;
  149. PROCEDURE ShowWindow   (theWindow:GrafPortPtr);                    Tool 14,19;
  150. FUNCTION  StopAlert    (template:Ptr; filter:ProcPtr):integer;     Tool 21,24;
  151. PROCEDURE SysBeep;                                                 Tool 3,44;
  152. PROCEDURE SysFailMgr       (errCode:integer;theStr:Str255);        Tool 3,21;
  153. FUNCTION  TLMountVolume (x,y:integer;l1,l2,b1,b2:Str255):integer;  Tool 1,17;
  154. PROCEDURE TLShutDown;                                              Tool 1,3;
  155. PROCEDURE TLStartUp;                                               Tool 1,2;
  156. FUNCTION  TaskMaster   (mask:integer;event:WmTaskRec):integer;     Tool 14,29;
  157. PROCEDURE WaitCursor;                                              Tool 18,10;
  158. PROCEDURE WindShutDown;                                            Tool 14,3;
  159. PROCEDURE WindStartUp  (userID:integer);                           Tool 14,2;
  160. FUNCTION  WindStatus:integer;                                      Tool 14,6;
  161. FUNCTION  GetWMgrPort:GrafPortPtr;                                 Tool 14,32;
  162. FUNCTION  GetMenuMgrPort:GrafPortPtr;                              Tool 15,27;
  163.  
  164.  
  165.  
  166.  
  167.  
  168. END.
  169.